﻿Imports StartFrame.Web.BR.Helpers
Imports StartFrame.Web.BR
Imports System.Linq

Namespace Mantenimiento.Administracion


    'Clase para la tabla Juzgados de la base de datos Judiciales.
    Public Class Juzgados
        Inherits JsonAbm

        ''' <summary>
        ''' Esta clase se encarga de la administración de los juzgados.
        ''' </summary>
        Sub New()
            MyBase.New(Operador, Password, "XRRecorridas", "judiciales.dbo.Juzgados", "Juzgado")
            MyBase.lnk_nombreOperador = Common.Env.Operador
        End Sub

        Public Overrides Function List(Start As Integer, Limit As Integer, Orden As String, Filtro As String) As String
            If Not String.IsNullOrWhiteSpace(Filtro) AndAlso Filtro.ToLower().Contains("property") Then
                Dim fCollection As New FiltroColeccion
                Dim jArray As Newtonsoft.Json.Linq.JArray = Newtonsoft.Json.JsonConvert.DeserializeObject(Filtro)
                For Each jItem As Newtonsoft.Json.Linq.JObject In jArray
                    fCollection.AgregarEQFilter(jItem.Value(Of String)("property"), jItem.Value(Of String)("value"))
                Next
                fCollection(0).Operador = "OR"
                Return MyBase.List(Start, Limit, Orden, fCollection.ToJSON())
            End If
            Return MyBase.List(Start, Limit, Orden, Filtro)
        End Function
    End Class
End Namespace